home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 49 / Amiga Format CD49 (2000-01-17)(Future Publishing)(GB)(Track 1 of 3)[!][issue 2000-02].iso / +system+ / tools / sound / ahi / developer / devloper.lzx / drivers / macros.i next >
Text File  |  1979-12-20  |  920b  |  92 lines
  1.  
  2. TRUE    equ    1
  3. FALSE    equ    0
  4. NULL    equ    0
  5.  
  6. call    MACRO
  7.     jsr    _LVO\1(a6)
  8.     ENDM
  9.  
  10.  
  11. skipw    MACRO
  12.     IFNE    NARG
  13.     FAIL    !!! NO ARGUMENTS ALLOWED !!!
  14.     ENDC
  15.  
  16.     dc.w    $0c40                    ;CMPI.W #????,d0
  17.     ENDM
  18.  
  19. skipl    MACRO
  20.     IFNE    NARG
  21.     FAIL    !!! NO ARGUMENTS ALLOWED !!!
  22.     ENDC
  23.  
  24.     dc.w    $0c80                    ;CMPI.L #????????,d0
  25.     ENDM
  26.  
  27.  
  28. base    MACRO
  29.     IFC    '\1','exec'
  30.         move.l    4.w,a6
  31.     ELSE
  32.         move.l    \1base(pc),a6
  33.     ENDC
  34.     ENDM
  35.  
  36. abase    MACRO
  37.     IFC    '\1','exec'
  38.         move.l    4.w,a6
  39.     ELSE
  40.         move.l    \1base,a6
  41.     ENDC
  42.     ENDM
  43.  
  44.  
  45. push    MACRO
  46.     move.l    \1,-(sp)
  47.     ENDM
  48.  
  49. pop    MACRO
  50.     move.l    (sp)+,\1
  51.     ENDM
  52.  
  53. pushm    MACRO
  54.     IFC    '\1','std'
  55.         movem.l    d2-d7/a2-a6,-(sp)
  56.     ELSE
  57.         movem.l    \1,-(sp)
  58.     ENDC
  59.     ENDM
  60.  
  61. popm    MACRO
  62.     IFC    '\1','std'
  63.         movem.l    (sp)+,d2-d7/a2-a6
  64.     ELSE
  65.         movem.l    (sp)+,\1
  66.     ENDC
  67.     ENDM
  68.  
  69. mpush    MACRO
  70.     pushm    \1
  71.     ENDM
  72.  
  73. mpop    MACRO
  74.     popm    \1
  75.     ENDM
  76.  
  77.  
  78. flash    MACRO
  79.     push    d0
  80.     moveq    #-1,d0
  81. .loop\@
  82.     move.l    d0,$dff180
  83.     dbf    d0,.loop\@
  84.     pop    d0
  85.     ENDM
  86.     
  87. wait    MACRO
  88. .loop\@
  89.     btst    #7,$bfe001
  90.     bne.b    .loop\@
  91.     ENDM
  92.